list p=16c505 
#include <pl6c505.inc> 



list directive to define processor 
processor specific variable definitions 



_CONFIG _CP_ON & __WDT_OFF & _MCLRE__OFF & _IntRC_OSC_CLKOUTEN 
See respective date sheet for additional information on configuration worl 



PWCount 



CountLo 
CountHi 
minutes ) 



VARIABLE DEFINITIONS 



EQU 



EQU 
EQU 



0x08 ; counter used for output pulse width 
must count to 20 (200ms) 



0x09 
0x0a 



low byte of 5 minute counter (255=2.55 seconds), 
high byte of 5 minute counter (118=5 



State 



EQU 0x0b 



bitO high if light has been turned on 

* ig * if past ini tial blanking period (10 seconds) 
k li u 19 ^ t0 prevent "triggering from shutoff pulse 
bit3 high to indicate checking in progress 
bit4 high to indicate RS2320K 
bit5 high to indicate WORKLIGHT on 



M 



#def ine 
#def ine 
#def ine 
#def ine 



LITEON 
AWAKE 1 
BLANK 2 
CHECKING 3 



BlankCnt 


EQU 


OxOc 


Present 




EQU 


PWMCount 


EQU 


OxOe 


PWMVal 




EQU 


PWMRem 




EQU 


PWMCycle 


EQU 


0x11 


IncCount 


EQU 


0x12 


DecCount 


EQU 


0x13. 


StoredPWM 


EQU 


0x14 


increased or decreased 


CheckCnt 


EQU 


0x15 


value 






LoCnt 


EQU 


0x16 


WarmBoot 


EQU 


0x17 


cold boot i 


f not 




LeapCount 


EQU 


0x18 


PlungeCount 


EQU 


0x19 



; used to prevent triggering from shutoff pulse 

0x0d. ; used to count presence of signal, 10 ms/count 

; used as main counter for pwm functions 
OxOf ; high duration count (0 - 255) 
0x10 ; low duration count (0 - 255) 
; counts cycles, need 8 to run 10ms 

; counts high readings before incrementing pwm 

; counts low readings before decrementing pwm 

; stored value of PWM, used to check if light has 

; counter used to count one second before checking light 

; counter used to measure low pulse width on line 

; set to 0x55 in normal ops. Check if ==0x55 on powerup. 



RC0 
RC1 
RC2 
RC3 
RB2 
held on 



- photocell input, high for Dark 

- PIR input 1, low for disturbance 

- PIR input 2, high for disturbance 

- Pulse output, 250ms high pulse to drive transistor 

- Test input - when low, startup timer is eliminated, and the light is 



for 3 seconds instead of 5 



# define DARK 

#define PIRH 1 

#define PIRL 2 

#define PULSEOUT 3 

#def ine PWMOUT 

#define RS232DRV - . 4 

#define- TESTP13 

#define WORKLIGHT 5 

worklight is on (based on query) 

#define RS23 20K 
RS232 is supported by GDO 



minutes . 



active high, pin 9 
active low, pin 8 
transistor drive output 

; test output on RC5 
test output on RC4 

; test output on RB0 
bit 5 of State byte, high to indicate that 

; bit 4 of State byte, indicates that 



******** 



**************. 



'★****♦**, 



t********** 



ORG 0x3 FF ~ 

Internal R r p.i^k «. ■ , ' P roc ®ssor reset vector 



ORG 0x000 
movwf OSCCAL 
clrf FSR 



coding begins here 

update register with factory cal value 
ensure FSR register points to BankO 



At 



; Setup option register for prescaling, tim er uses internal clock and prescaler 



movlw 0x0 
movlw 0x044 

option 



; temporary patchout to speed sim, <a<a(a 

; set prescaler to divide by 32, disable pullups 

; timer period is 32us 



Setup ports 

RCO - photocell input, high for Dark 
RC1 - PiR input 1, high for disturbance 
RC2 - pir input 2, low for disturbance 

nnp " J ul ^. out P"t, 250ms high pulse to drive transistor 
held on ' lnPUt - When l0W ' StartUp timer is eliminated, and the light is 

for 3 seconds instead of 5 minutes. 



movlw 0x07 
tris PORTC 

movlw 0x6 



loop 



tris 


PORTE 


bcf 


PORTB, 5 


bsf 


State, BLANK ; 


clrf 


BlankCnt 


movlw 0x5 5 


subwf WarmBoot.w 


btf sc STATUS, Z 


goto 


main__loop 


bcf 


PORTB, TESTP13 


clrf 


TMR0 


bcf 


PORTC , RS23 2DRV 


clrf 


PWCount 


clrf 


CountLo 


clrf 


CountHi 


clrf 


State 


clrf 


PORTC 


clrf 


PORTB 


clrf 


Present 


bcf 


State, BLANK ; 


bcf 


State, CHECKING 


clrf 


CheckCnt 


clrf 


IncCount 


clrf 


DecCount 


clrf 


LoCnt 


movlw 


0x7 f 


movwf 


PWMVal 


movwf 


PWMRem 


clrf 


PlungeCount ; 


clrf 


LeapCount 



set RC3,4,5 only as output 

set RBX as outputs , except for RB2 and RBI 

; turn on power to amplifier 
set BLANK so that vacation mode won't cause retriggers 

if WarmBoot==0x55, assume warm boot and go to main 



initialize all variables 



temporary values for sim 



A-3 



main_loop 



; turn on PWM output 
clrf PWMCycle 
movlw 0x07 
tris PORTC 

; set pwm output high 

PWMStart : 

bs f PORTC , PWMOUT 
clrf PWMCount 

; count PWMVal counts 
PWM1 : 

incf PWMCount ,1 
movf PWMVal ,0 
subwf PWMCount, 0 
is set) 

btfss STATUS , C 
goto pwmi 
clrf PWMCount 

; clear PWM output 

be f PORTC , PWMOUT 



; count PWMRem counts 
PWM 2 : 

incf PWMCount ,1 

movf PWMRem, 0 

subwf PWMCount , 0 

btfss STATUS, C 

goto PWM2 



set RC3,4,5 only as output 



put PWMVal into w 

w= PWMCount - PWMVal (if result is positive or zero, C 



if C is clear, stay in the loop 



put PWMRem into w 

w = PWMCount - PWMRem 

if C is clear ( PWMRem> PWMCount ) , stay in loop 



; this point is hit about every 1 6ms 

not^ear colter ^ ^ C °— -e cycles - if so, go to sleep 

btf sc PORTB , 1 
goto linehi ! 
incf LoCnt,l 
movlw 3 
subwf LoCnt , 0 
btfss STATUS , Z 
goto chkcycles 
bs f PORTB , 5 
movlw 0x5 5 
movwf WarmBoot 
sleep 



if 



1 inehi : 



; turn off analog section 
exit from sleep will be through reset 



clrf LoCnt 



;^check if PWM program has run 6 times - i f 

chkcycles: times - if not, run it again 

incf PWMCycle, 1 
movlw 0x6 



M 



subwf PWMCycle,0 
btf ss STATUS , C 
goto PWMStart 



^ *L fn f ° UtPUt Bnd 9 ° tC P^cessing functions 

movlw 0x27 . set RC3 , 4 , 5 only as output 

tris PORTC 



; check comparator - if 
btfsc PORTC, 0 
goto boos tpwm 
voltage 

clrf LeapCount 
incf DecCount,! 
. movlw Oxa 
subwf DecCount, 0 
btf ss STATUS, C 
goto ad_done 
clrf DecCount 
movf PWMVal, 1 
btfsc STATUS, Z 
goto ad_done 
decf PWMVal, 1 
incf PlungeCount, 
movlw Oxc 
subwf PlungeCount , 
if PlCnt<12, C=0 

btfss STATUS , C 
goto ad_done 
movlw 0x2 0 
subwf PWMVal, w 
btfss STATUS, C 
goto ad_done 
movlw 0x9 
subwf PWMVal , f 
ad_done 



low, reduce output voltage 

; if light comparator is high, go to boost output 



check if DecCount is >10 
if not, get out of ad ops 

» 

if it is >1Q, clear DecCount 

check if PhWal is 0 - if not, decrement it 

; decrement PWMVal, put back in PWMVal 
1 ; increment PlungeCount 

w ; check if PlungeCount>12 -> w=PlungeCount-l 

; if not, get out of ad ops 

if PWMVal < 0x2 0, don't sub 10 

w=PWMVal-20. if PWMVal<20, C=0, and get out. 



goto 
boostpwm: 
clrf 
incf 



; PWMVal = PWMVal - 9 



PlungeCount 
IncCount , 1 
movlw Oxa 
subwf IncCount , 0 
btfss STATUS, C 
ad_done 
IncCount 
movlw Oxff 
subwf PWMVal, 0 
STATUS. Z 
ad_done 
PWMVal , 1 
LeapCount , f 
movlw Oxc 
subwf LeapCount, w 
LeapCount<12 , C=0 

btfss STATUS, C 
goto ad_done 



goto 
clrf 



btfsc 
goto 
incf 
incf 



check if DecCount is >10 
if not, get out of ad ops 

if it is >10, clear DecCount 



; decrement PWMVal, put back in PWMVal 

; increment PlungeCount 

; check if LeapCount>12 -> w=Lea P Count-12 -> if 

; if not. get out of ad ops 



As 



movlw OxdO 
subwf PWMVal , w 
btfsc STATUS , C 
goto ad_done 
movlw 0x9 
addwf PWMVal,f 

ad_done : 

comf PWMVal, 0 
movwf PWMRem 



if PWMVal > OxdO, don't sub 10 

w=PWMVal-dO. if PWMVal>dO, C=l f and get out. 



; PWMVal = PWMVal - 9 



complement PWMVal and store result 



in w reg 



1 i,ii T ?° N ^ high ° r lf AWAKE 1S loW ° r if BLANK is high, 
must increment CountLo and Count Hi 



; if LITEON is high, jump to countup 
if AWAKE is low, jump to countup 
if BLANK is high, jump to countup 

; if neither condition is met, go to nocount 



W=CountLo-255. Z = l if CountLo=255 

if Z is clear, skip incrementing CountHi 



btfsc State, LITEON 

goto countup 

btfss State , AWAKE ; 

goto countup 

btfsc State, BLANK ; 

goto countup 

goto nocount 

countup 

movlw Oxff 

subwf CountLo, 0 

btfss STATUS, Z 

goto lo_only 

incf CountHi,! 
lo_only 

incf CountLo, 1 

incf BlankCnt,l 

nocount 

; if CHECKING is high, increment CheckCnt 
btfss State, CHECKING 
goto checklo 
incf CheckCnt, 1 ; 

' ^nfif^aT 5 £ a 1e°r I™ is — - « ... CW CHECKING, 

was sen", 9 Ime.nmg lt got darker in the second sines a pulse 

then send another pulse 

movlw 0x64 ; ioo in hex 

btfL' irlrvTc 0 ; w = r c ? eckCnt - 100 - c=0 if checkc„t<ioo 

goto cJecklo '' ' 9 ° C ° ChSCk gainst StoredPWM 



btfss State, LITEON 
version 

goto liteonlo 



; if LITEON is high, do the "want light on* 



; if LITEON is high, do the foil 
movf PWMVal, 0 
subwf StoredPWM,0 



owing 
move PWMVal into w 

btfss STATUS C • r f = c ^°rTT P J MVa1 ' C=0 if StoredPWM<PWMVal 
,C ' Xf C ~ 1 - ( 90t lighter), don't send pulse again 



A-6> 



bs f PORTC , PULSEOUT 
goto clrcheck 

; if LITEON is low, do the following 
liteonlo: 

movf StoredPWM,0 ; move StoredPWM into w 

btfss STATUS , C ; if C =l (got darker), don't send pulse aaain 
bsf PORTC, PULSEOUT .; p e again 

clrcheck: 

bcf State, CHECKING 

bcf PORTC ,TESTP6 

clrf CheckCn t 
checklo: 

; check if awake - if not. check if it's time. if not. go to top. 

counter"" St3te ' A ™ ■ « AWAKE is high, go to other stuff., if not. check 

goto already _awake 
; check test pin - if low, go to set_awake 

; old line below, started in 5 minu«-<=. s 

Zl 6 3 ■ """Pond, to 118d. timeout of 5 minutes 

™fls lolls. 2 ■ COrr r P ° ndS t0 35d ' timeOUt of 90 -conds 

goto set_awake 
subwf CountHi , 0 
btfss STATUS, Z 



goto main_loop 



if CountHi != 35, go to main_loop again 



set!Lake e '° *° AWAKE ' ° lear timers < and ^ to top 

bsf State , AWAKE ; set AWAKE bit 

clrf CountHi 
goto main_loop 

already__awake nop 

; check PULSEOUT - if set. increment PWCount 

btfss PORTC , PULSEOUT ; if PULSEOUT i «= r.^ 

goto exit_pulse . PULSEOUT 13 not set, go to next section 

incf PWCount, 1 

'' ^movlVoxTr ^ reaChed ' if S ° then 



subwf PWCount, 0 
btfss STATUS, Z 
goto exit_pulse 
be f PORTC , PULSEOUT 
clrf PWCount 



move 2 0d into W 
if same, Z==l 



exit_pulse nop 



I 'bSk 1 ' BLANK iS ■ lf i9n ° re PIR and Check if ^'s tin* to drop 



btfsc State , BLANK ; 
goto check_blank ; 



; check PIR inputs if active, clear out CountLo and CountHi 



btfss PORTCPIRL 
goto presence 
btfsc PORTCPIRH 
goto presence 
goto quiet 

presence 

incf Present,! 



lf P mov2Y 2 ' Perf ° rm ° PS " otherwise ' 9° back to main loop 
subwf Present. 0 ; W = PresCnt-10. C=0 if Present < 10 

check C, if set then skip goto, otherwise loopback 



btfss STATUS , C 
goto main_loop 



clrf CountHi 
clrf Present 



check if LITEON - if not, check Dark - if dark, make pulse 
btfsc State LITEON . if LITEON is set. jump to top 

goto main_loop 



check if PWMVal>128 - if so s^t- t ttfom 

movlw 0x80 ; E ° N ^ d Cal1 PUlse P ro 9"m 

subwf PWMVal, 0 J W-= PWMVal-0x80. C=0 if PWMVaKOxSO 

if C is set, generate pulse - otherwise, back to top 



btfss STATUS, C 
goto main_loop 



call query_lite ; test function for the moment @@@ 

CHECKING 3201 " " l0W ' LITE0N< P ulseo ^, save PWMVal in StoredPWM. and set 

btfsc State, RS2320K 
goto rs_set 
bsf State, LITEON 
bs f PORTC , PULSEOUT 
movf PWMVal, 0 
movwf StoredPWM 
bsf State, CHECKING 
goto main_loop 

LITEON S2 "hi„^o h ^ k W ° RK " GHT " « ~ tb- see p uls eo»t .„a 

rs_set : 

clrf BlankCnt 

bsf State. BLANK ; setting BLANK here stops oscillations 



btfsc State , WORKLIGHT 
goto main_loop 
bsf State , LITEON 
bsf PORTC, PULSEOUT 
goto main_loop ; 



check_blank 



movlw Oxff 
subwf BlankCnt, 0 
btf ss STATUS , 2 
goto quiet 
bcf State , BLANK 
bcf PORTC, TEST2 



if BLANK has been high for 2.5 seconds 
shut it off 



clear external test pin 5 



141d, equal to 6 minutes 

; if test pin is low, load up 2 as test for 

if CountHi==141 , then Z=l 



quiet: 

clrf Present 

; if PIR inputs are inactive, check if CountHi hp i f c~ ^ ■ 

and pulse <-ountHi — 118. if so, clear out LITEON 

btfss State, LITEON 

goto main_loop 

movlw 0x8d 

btfss PORTB, 2 
CountHi 

movlw 0x2 
subwf CountHi , 0 
btfss STATUS , Z 
goto main_loop 
clrf CountHi 
clrf CountLo 
bcf State, LITEON 
bsf State, BLANK 
clrf BlankCnt 
call query_lite 

go'to^op 2 ^ " l0W ' PUlSeOUt ' Set StoredPWM equal to PWMVal, set CHECKING. 

btfsc State, RS2320K 
goto rs_clr 
bs f PORTC , PULSEOUT 
movf PWMVal ,0 
movwf StoredPWM 
bsf State, CHECKING 
goto main_loop 

go'bacf tftop 5 hi9h ' if W0RKLIG «^ - high, if so then set pulseout. then 

rs^clr : 

btfsc State, WORKLIGHT 

bs f PORTC , PULSEOUT • 

goto main_loop 

query_lite: 

bcf State, WORKLIGHT 



; look for key reading pulse, stay until seen 
waittillo: 

btfsc PORTB.l ' ; read pin 12, RBI 

goto waittillo 
waittilhi: 

btfss PORTB,l ; r ead pin 12, RBI 

goto waittilhi 

; reset timer, timer bits are 32us/bit 



clrf TMRO 



clear out TMRO to start timer again 



check if TMRO = 16 (time = 512us) 



if not yet, check again 
clear timer 



; wait 500 us 
wait500 : 

movlw 0x10 
subwf TMRO , 0 
btfss STATUS, Z 
goto wait500 
clrf TMRO 
send 0x3a 
turn pin 6 on for 1666 us, 

off for 833us, 
on for 833us, 
off for 2499us, 
on for 1666us. 
bsf PORTC , RS 2 3 2 DRV 

waitl: 

movlw 0x3 3 
subwf TMRO, 0 
btfss STATUS, Z 
goto waitl 
clrf TMRO 

be f PORTC , RS 2 3 2 DRV 
wait2: 

movlw 0x19 

subwf TMR0,0 . r h Pr u if m lJIDn ~, , . 

btfss STATUS , Z ; ' lf ™ R ° = 26 (time = 832us) 

if not yet, check again 



; check if TMRO = 51 (time = 1664us) 
if not yet. check again 



wai t3 : 



goto wait2 
clrf TMRO 
bs f PORTC , RS 2 3 2 DRV 



wait4 : 



waits 



movlw 0x19 
subwf TMRO , 0 
btfss STATUS, Z 
goto wait3 
clrf TMRO 

be f PORTC , RS 2 3 2 DRV 

movlw 0x4d 
subwf TMRO, 0 
btfss STATUS, Z 
goto wait4 
clrf TMRO 
bs f PORTC , RS232 DRV 

movlw 0x4d 
subwf TMRO , 0 
btfss STATUS, Z 



;. check if TMRO = 26 (time = 832us) 
if not yet, check again 

; check if TMRO = 78 (time = 2496us) 
if not yet, check again 

; check if TMRO = 78 (time = 2496us) 



A- 10 



clrf . TMRO 

bcf PORTC , RS2 3 2DRV 

; wait for lOOus for pin 12 to rise before checking 
wait 6 : 

movlw 0x3 

subwf TMR0,0 . check if tmpo 

btfss STATUS , Z ; ™ R ° * 3 Uime = 96US) 

goto wait6 ; if n o t yet. check again 

clrf TMRO 

W RS-232 r if I J" t0 ^° P . loW - if ^ d -ps for more than SOOus. then 
inactivi e ' " l0V "' f ° r leSS than 500us ' R S-232 is 

checkpl2: 

.btfsc PORTS, 1 . read pin 12 Rfil 

goto checkpl2 

clrf TMRO ; reset counter to start measuring low pw 

bsf State, RS2320K 
^ol' 11 " ^ S6en ' ^ if timS > 512US ' ^ 16 counts. If so. set 

WORKLlGS^'Exat" 1 ^ = 2912US ' °' S1 CBmtl " If " is ' "^^ P™" and pass to 

reading: 

btfss PORTE ,1 
goto pl21o 
movlw 0x10 

S££ ™"us.c \ ; ""«"-»"■ « ™^<". Chen CO 

goto pi2lo 

bcf State, RS2320K 

pl21o: 

movlw 0x56 
subwf TMR0 # 0 
btfss STATUS , Z 
goto reading 

; sample pin 12, set WORKLIGHT if HIGH 
btfsc PORTB, 1 
bsf State, WORKLIGHT • 
clrf TMRO 

; wait for end of signal from GDO 
restofrx: 

movlw 0xc8 

subwf TMRO, 0 

btfss STATUS , Z 

goto restofrx 

clrf TMRO 

; send break 

bs f PORTC , RS2 3 2 DRV 



A-ll 



breakl : 

movlw Oxff 

subwf TMRO, 0 

btfss STATUS , Z 

goto breakl - 

clrf TMRO 
break2 : 

movlw 0x2 0 

subwf TMRO, 0 

btfss STATUS, Z. 

goto break2 

bcf PORTC , R S 2 3 2 DRV 

retlw 0 

END directive 'end of program' 



